dim WS
dim qq
set qq="D:\Program Files (x86)\Tencent\QQ\Bin\QQ.exe"
Set WS=WScript.CreateObject("WScript.Shell")
WS.Run qq
WScript.Sleep 200
WS.AppActivate "QQ用户登录"
WS.SendKeys "1309389525"
WScript.Sleep 200
WS.SendKeys "{TAB}"
WS.SendKeys "zhanghao"
WScript.Sleep 200
WS.SendKeys "{ENTER}"